home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / E / EditString.cpt / EditString Stack / card_5067.txt < prev    next >
Text File  |  1990-06-22  |  3KB  |  91 lines
  1. -- card: 5067 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3493
  5. -- name: trim
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=88 top=211 right=233 bottom=188
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: trim leading
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put "‚Ä¢" & editString("trimFld", background field "A","empty",TRUE,FALSE)& "‚Ä¢" into background field "B"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: A003
  30. -- rect: left=200 top=211 right=233 bottom=300
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: trim trailing
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   put "‚Ä¢" & editString("trimFld", background field "A","empty",FALSE,TRUE)& "‚Ä¢" into background field "B"
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 3 (button)
  47. -- low flags: 00
  48. -- high flags: A003
  49. -- rect: left=311 top=211 right=233 bottom=411
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: trim both
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   put "‚Ä¢" & editString("trimFld", background field "A","empty",TRUE,TRUE)& "‚Ä¢" into background field "B"
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part contents for background part 2
  66. ----- text -----
  67. Trim will remove spaces from the front and/or the end of any text.    The maximum size of the text (or data holder) is 30000 bytes.
  68.  
  69. -- part contents for background part 1
  70. ----- text -----
  71. trimFld
  72.  
  73. -- part contents for background part 3
  74. ----- text -----
  75. editString("trimFld", source, empty, leading, trailing)
  76. ‚Ä¢ source is the intput variable or field containing the text
  77. ‚Ä¢ empty is a string that the function will return if the input string is empty
  78. ‚Ä¢ leading is either TRUE or FALSE for trimming leading spaces
  79. ‚Ä¢ trailing is either TRUE or FALSE for trimming trailing spaces
  80.  
  81. put editString("trimFld", field "A", "", TRUE, TRUE) into field "B"
  82. This function will return field A trimmed of both leading and trailing spaces.
  83. The boolean parameters are for trimming Leading and Trailing spaces respectively.  It will also return a zero length string if field A is empty.
  84.  
  85. -- part contents for background part 4
  86. ----- text -----
  87.       hello there how are you          
  88.  
  89. -- part contents for background part 5
  90. ----- text -----
  91. ‚Ä¢hello there how are you          ‚Ä¢